Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/smtlbox/frmdumy.txt

Text File | 1994-10-16 | 596 b | 30 lines

Dim Focus As Integer

Sub mnu_Close_Click ()
Unload frmMain
End
End Sub

Sub mnu_Move_Click ()
    Mousepointer = 5
      Dim mpos As POINTAPI

      Dim p As ConvertPOINTAPI
      Dim ret As Integer

      Call GetCursorPos(mpos) ' Get the current position of the cursor
      LSet p = mpos           ' and convert it for SendMessage calls.
      ret = Sendmessage(frmMain.hWnd, WM_LBUTTONUP, 0, p.xy)

    ret = Sendmessage(frmMain.hWnd, WM_SYSCOMMAND, MOUSE_MOVE, p.xy)

End Sub

Sub mnuSystemMenu_Click ()
Focus = True
frmMain!Timer1.Interval = 10

End Sub